home *** CD-ROM | disk | FTP | other *** search
/ Shareworld 8 / Shareworld 8 (Disk 2 of 2).adf / Programs / MachineCodeHelloWorld / MyIncludes / OpIntuitionMacros.i < prev    next >
Encoding:
Text File  |  1978-02-11  |  1.2 KB  |  43 lines
  1. ; --------------------------------------------------------------
  2. ; --------------------------------------------------------------
  3. ; Standard Intuition Macros for systems using Commodore Includes.
  4. ; Requires Graphics library/Intuition library.
  5. ; 
  6. ; Matthew Goode - 28/1/97
  7. ; --------------------------------------------------------------
  8. ; --------------------------------------------------------------
  9.  
  10. GetFontHeight    Macro
  11.     ;Finds the height of the font currently used in the RastPort as
  12.     ;pointed to by \1 (an aX)
  13.     ;Result is in \2,
  14.     move.w rp_TxHeight(\1),\2
  15.     EndM
  16.  
  17. ;  -------------------------------------------------------------------
  18.  
  19. GetWindowDimensionsSansBorder    Macro
  20.     ;Finds the size of the window (adjusted for border size) as
  21.     ;specified by the handle in \1 (as an aX)
  22.     ;Results are starting x,y positions in \3,\4 
  23.     ;and ending x,y positions of the window in x2,y2 in \5,\6
  24.  
  25.     Moveq #0,\2
  26.     moveq #0,\4
  27.     move.b wd_BorderRight(\1),\2
  28.     move.w wd_Width(\1),\4
  29.     sub.w \2,\4
  30.  
  31.     Moveq #0,\3
  32.     moveq #0,\5
  33.     move.b wd_BorderBottom(\1),\3
  34.     move.w wd_Height(\1),\5
  35.     sub.w \3,\5
  36.  
  37.     move.b wd_BorderLeft(\1),\2
  38.     move.b wd_BorderTop(\1),\3
  39.     EndM
  40.  
  41. ; --------------------------------------------------------------
  42.  
  43.